home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / getlin.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  916 b   |  26 lines
  1.       subroutine getlin
  2.       implicit double precision (a-h,o-z)
  3. c
  4. c     this routine reads the next line of input into the array afield.
  5. c if end-of-file is found, the variable keof is set to 1.
  6. c
  7. c spice version 2g.6  sccsid=line 3/15/83
  8.       common /line/ achar,afield(15),oldlin(15),kntrc,kntlim
  9. c spice version 2g.6  sccsid=flags 3/15/83
  10.       common /flags/ iprnta,iprntl,iprntm,iprntn,iprnto,limtim,limpts,
  11.      1   lvlcod,lvltim,itl1,itl2,itl3,itl4,itl5,itl6,igoof,nogo,keof
  12. c spice version 2g.6  sccsid=status 3/15/83
  13.       common /status/ omega,time,delta,delold(7),ag(7),vt,xni,egfet,
  14.      1   xmu,sfactr,mode,modedc,icalc,initf,method,iord,maxord,noncon,
  15.      2   iterno,itemno,nosolv,modac,ipiv,ivmflg,ipostp,iscrch,iofile
  16. c
  17. c
  18.       call copy8(afield,oldlin,15)
  19.       read(5,6,end=10) (afield(i),i=1,10)
  20.       go to 100
  21.     6 format(10a8)
  22.    10 keof=1
  23.   100 call ushift(afield)
  24.       return
  25.       end
  26.